Shareware Grab Bag/Shareware Grab Bag.iso/090/msnewout.arc/PTYUQQ.PAS

Pascal/Delphi Source File | 1986-09-14 | 336b | 17 lines

PROCEDURE  MYPTYUQQ ( LENGTH : WORD; LOC : ADSMEM ) [PUBLIC];

VAR
   Index : WORD;
   PTR : ADS OF BYTE;
   Ch  : BYTE;

BEGIN
   Ptr := Loc;
   FOR Index := 1 TO Length DO
   BEGIN
      Ch := Ptr^;
      DisplayChar ( Ch ); { YOUR NEW OUTPUT ROUTINE JUST LIKE TURBO }
      Ptr.R := Ptr.R + 1;
   END; { FOR }
END;